1560 SAME = 0: IF PRFX$ = P2$ THEN PRINT D$"RENAME"P2$",/TEMP/"D2$:SAME = 1:P2$ = "/TEMP/"
1570 PRINT D$"COPY "FULL$","P2$;FILE$
1580 IF SAME THEN PRINT D$"RENAME /TEMP/,"PRFX$;D2$
1590 GOTO 940:<CTRL-J><CTRL-J><CTRL-J><CTRL-J>
1600 REM <CTRL-J><CTRL-J><CTRL-J>ERROR TRAP
1605 ER = PEEK(222):LN = PEEK(218) + PEEK(219) *256: HOME
1610 IF LN = 15 THEN PRINT "COPY FUNCTION IS MISSING FROM YOUR": PRINT "DISK. WON'T WORK NOW.";: GOTO 20
1612 IF ER = 16 AND LN = 1570 THEN PRINT "COPY FUNCTION IS MISSING FROM YOUR": PRINT "DISK. WON'T WORK NOW.";: GOTO 1670
1613 IF ER = 16 AND LN = 1020 THEN PRINT "TYPE FUNCTION IS MISSING FROM YOUR": PRINT "DISK. WON'T WORK NOW.";: GOTO 1670
1615 IF LN = 20 THEN PRINT "TYPE FUNCTION IS MISSING FROM YOUR": PRINT "DISK. CAN'T VIEW FILE.";: GOTO 30
1620 IF ER = 6 OR ER = 8 THEN PRINT "DISK NOT FOUND IN DRIVE ";D2;: GOTO 1670
1630 IF ER = 4 THEN PRINT "DISK IS WRITE-PROTECTED... NOTCH IT";: GOTO 1670
1640 IF ER = 3 THEN PRINT "THERE IS NO DRIVE ";D2;: GOTO 1670
1650 IF ER = 9 AND LN = 1570 THEN PRINT "TARGET DISK IS FULL...COPY ABORTED<CTRL-G><CTRL-G>": GET A$: PRINT : GOTO 1580
1660 IF ER = 19 AND LN = 1570 THEN PRINT "DUPLICATE FILE NAME ON DRIVE "D2".": PRINT "REPLACE WITH NEW?";: GET A$: IF A$ = "Y" OR A$ = "y" THEN PRINT : PRINT D$"DELETE"D2$;FILE$: GOTO 1570
1665 IF ER = 19 THEN PRINT "DUPLICATE FILE NAME...": PRINT "FUNCTION ABORTED.";: GOTO 1670
1669 POKE 216,0: RESUME
1670 PRINT BELL$;BELL$;: GET A$: PRINT : GOTO 940
1700 REM RUN
1705 TEXT : HOME
1707 PRINT "- ";FULL$
1710 ONERR GOTO 1600
1720 PRINT D$"-";FULL$: GOTO 930
1800 REM QUIT
1810 TEXT : END
2000 REM <CTRL-J><CTRL-J><CTRL-J>READS DIR INTO B$()